home *** CD-ROM | disk | FTP | other *** search
/ MacUser Mac Bin 40 / MACUSER-MACBIN40A-1997-03.ISO.7z / MACUSER-MACBIN40A-1997-03.ISO / 特集⁄オンラインソフト / ゲーム＆アミューズメント / アミューズメント / Citron 1.07J⁄E / Citron / Citron.rsrc / TEXT_12345_rect list of buttons.txt < prev    next >
Text File  |  1996-12-18  |  707b  |  30 lines
  1. global gLetsWork
  2. put number of cd btns into cc
  3. put number of bg btns into bb
  4. put empty into mm
  5. put 1 into pp
  6. repeat with i=cc down to 1
  7. if visible of cd btn i is true
  8. then
  9. put "VC " into ld
  10. else
  11. put "IC " into ld
  12. end if
  13. put char 1 to 2 of style of cd btn i after ld
  14. put char 1 to 5 of (id of cd btn i & "     ") after ld
  15. put ld & rect of cd btn i into line pp of mm
  16. add 1 to pp
  17. end repeat
  18. repeat with i=bb down to 1
  19. if visible of bg btn i is true
  20. then
  21. put "VB " into ld
  22. else
  23. put "IB " into ld
  24. end if
  25. put char 1 to 2 of style of bg btn i after ld
  26. put char 1 to 5 of (id of bg btn i & "     ") after ld
  27. put ld & rect of bg btn i into line pp of mm
  28. add 1 to pp
  29. end repeat
  30. put cc+bb & return & mm into gLetsWork